home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
os2
/
mtic132o.zip
/
INFOS.RAR
/
INFOS
/
MTS_CONC.200
< prev
next >
Wrap
Text File
|
1996-06-20
|
4KB
|
86 lines
(*
Turbo Pascal structures for Concord
needed for
▓███▀█▀█ ▓███▀█ ▓███▀▀ ▓███▀█ ▀▀████▀▀ ▀▀▀ ▓███▀█
▒███ █ ▒███▄ ▒███ ▀█ ▒███▄█ ███░ ███░ ▒███
████ █ ████▄▄ ████▄▄█ ████ █ ███▒ ███▒ ████▄█
▀
This document and MegaTIC are Copyright (c) by DiMeS,
Dirk Mertens, 1995,96. All rights reserved.
*)
CONST
COConfig = 'CONFIG.DAT';
COFileAreas = 'FAREAS.DAT';
ID_VER = $00001A9E; (* Concord data file ID ....... *)
ID_CFG = ID_VER or $00030000;
ID_CFG_HDR = ID_CFG or $01000000;
ID_CFG_REC = ID_CFG or $02000000;
ID_CFG_DOOR = ID_CFG or $03000000;
ID_CFG_FAREA = ID_CFG or $04000000;
MAX_FLAG = 10;
FAREA_ACTIVE = $0001; (* Bit 0 - Active? *)
FAREA_NEWFILES = $0002; (* Bit 1 - Include in new files check *)
FAREA_DEFAULT = $0004; (* Bit 2 - Tagged by default *)
FAREA_DUPECHK = $0008; (* Bit 3 - Include upload dupe check *)
FAREA_VIRUSCHK = $0010; (* Bit 4 - Include upload virus check *)
FAREA_FREE = $0020; (* Bit 5 - All files are free *)
FAREA_CDROM = $0040; (* Bit 6 - CD-ROM area (ie. READONLY) *)
FAREA_NOLISTREQ = $0080; (* Bit 7 - Allow dl files not in file list *)
FAREA_JUMP = $0100; (* Bit 8 - Link to another area list *)
FAREA_FILESBBS = $0200; (* Bit 9 - Force FILES.BBS *)
FAREA_OFFLINE = $0400; (* Bit10 - Force all files offline *)
TYPE
COFlagType = Array [1..MAX_FLAG] of Byte; (* Flags, bitmapped *)
Security = Record
Bpsrate : Word; (* Current BPS rate div 100 *)
Age : Byte; (* Age . . . . . . . . . . *)
SecLvl : Word; (* Security Level . . . . . *)
Flags : COFlagType; (* Flags ON . . . . . . . . *)
NotFlags : COFlagType; (* Flags OFF . . . . . . . *)
End; (* Size 25 bytes . . . . . *)
TimeRec = Word; (* Minutes after 00:00 *)
PathStr = String [79];
DirStr = String [67];
ANameStr = String [60];
PassStr = String [15];
MenuStr = String [08];
GroupStr = String [03];
TYPE
TCOFileArea = Record
{000} Id : LongInt; (* Always ID_CFG_FAREA *)
{004} Attrib : LongInt; (* File area attributes. *)
{008} Name : ANameStr; (* File area name. *)
{069} DownloadSec : Security; (* Sec needed to download files. *)
{094} UploadSec : Security; (* Sec needed to upload files. *)
{119} FileListSec : Security; (* Sec needed to list files. *)
{144} Password : PassStr; (* Password needed to enter file area. *)
{160} DownloadPath : DirStr; (* Download path. *)
{228} Basename : MenuStr; (* Filebase file name w/out extension *)
{237} EmptySpace : Array [1..51] of Byte;
{288} SubDirNum : Word; (* Current subdirectory number *)
{290} JumpDirNum : Word; (* If FAREA_JUMP, where to jump *)
{292} UploadArea : LongInt; (* If empty : Current area *)
{296} Group : GroupStr; (* Filearea group *)
{300} ArchiveFmt : Byte; (* Convert files to this archive format. *)
{301} KillDaysDL : Word; (* Kill file if not dl'd in last n days. *)
{303} KillDaysFD : Word; (* Kill file if older than n days. *)
{305} FilePoints : Word; (* Default file points per file dl'd. *)
{307} OpenFrom : TimeRec; (* Opening time in minutes after 00:00 *)
{309} OpenTo : TimeRec; (* Closing time in minutes after 00:00 *)
{311} FILESBBS : PathStr; (* Name of FILES.BBS *)
{391}
End;